home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / Internal_51_finder.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  18.1 KB  |  608 lines
  1. on finder
  2.   if the number of chars in field "f_modelfield" < 1 then
  3.     alert("You must enter a Model Number. If you don't know the model number click on a Product Category")
  4.     abort()
  5.   end if
  6.   if (char 2 of field "f_modelfield" = "-") and (char 4 of field "f_modelfield" = "-") then
  7.     put "." into char 2 of field "f_modelfield"
  8.     put "0000" after char 2 of field "f_modelfield"
  9.     put "." into char 8 of field "f_modelfield"
  10.   end if
  11.   if (char 2 of field "f_modelfield" = "-") and (char 5 of field "f_modelfield" = "-") then
  12.     put "." into char 2 of field "f_modelfield"
  13.     put "000" after char 2 of field "f_modelfield"
  14.     put "." into char 8 of field "f_modelfield"
  15.   end if
  16.   if (chars(field "f_modelfield", 1, 1) = "2") and (chars(field "f_modelfield", 2, 2) = "2") then
  17.     set cow to chars(field "f_modelfield", 3, 3)
  18.     set cow2 to chars(field "f_modelfield", 8, 8)
  19.     if (cow = "-") and (cow2 = "-") then
  20.       put "." into char 3 of field "f_modelfield"
  21.       put "0" after char 3 of field "f_modelfield"
  22.       put "." into char 9 of field "f_modelfield"
  23.     end if
  24.     updateStage()
  25.   end if
  26.   if chars(field "f_modelfield", 1, 1) = 3 then
  27.     set cow to chars(field "f_modelfield", 2, 2)
  28.     set cow2 to chars(field "f_modelfield", 6, 6)
  29.     if (cow = "-") and (cow2 = "-") then
  30.       put "." into char 2 of field "f_modelfield"
  31.       put "00" after char 2 of field "f_modelfield"
  32.       put "." into char 8 of field "f_modelfield"
  33.     end if
  34.     updateStage()
  35.   else
  36.     set cow to chars(field "f_modelfield", 2, 2)
  37.     set cow2 to chars(field "f_modelfield", 7, 7)
  38.     set cow3 to chars(field "f_modelfield", 8, 8)
  39.     if (cow = "-") and (cow2 = "-") then
  40.       put "." into char 2 of field "f_modelfield"
  41.       put "0" after char 2 of field "f_modelfield"
  42.       put "." into char 8 of field "f_modelfield"
  43.     end if
  44.     if (cow = "-") and (cow3 = "-") then
  45.       put "." into char 2 of field "f_modelfield"
  46.       put "." into char 8 of field "f_modelfield"
  47.     end if
  48.     if (cow = "-") and (cow2 = EMPTY) then
  49.       put "." into char 2 of field "f_modelfield"
  50.     end if
  51.     updateStage()
  52.   end if
  53.   set modtest to the number of chars in field "f_modelfield"
  54.   if chars(field "f_modelfield", modtest - 1, modtest - 1) = "-" then
  55.     put "." into char modtest - 1 of field "f_modelfield"
  56.   end if
  57.   set tester to field "f_modelfield"
  58.   if (char 3 of tester = "0") and (char 4 of tester = "0") and (char 5 of tester = "0") then
  59.     WHEELOPHANDENT()
  60.     abort()
  61.   end if
  62.   VBSEARCHENT()
  63.   abort()
  64. end
  65.  
  66. on VBSEARCHENT
  67.   global gDB, gtblOpDes, gtblWhDes, gtblcaste, gtblWheel, gTblca_fe, glinevar
  68.   set the visible of sprite 34 to 1
  69.   set the visible of sprite 35 to 1
  70.   set the visible of sprite 36 to 1
  71.   set the visible of sprite 37 to 1
  72.   set the visible of sprite 38 to 1
  73.   set the visible of sprite 39 to 1
  74.   set the visible of sprite 40 to 1
  75.   set the visible of sprite 41 to 1
  76.   set the visible of sprite 42 to 1
  77.   set the visible of sprite 43 to 1
  78.   set the visible of sprite 44 to 1
  79.   set the visible of sprite 45 to 1
  80.   set the visible of sprite 46 to 1
  81.   set the visible of sprite 47 to 1
  82.   set the visible of sprite 48 to 1
  83.   set the visible of sprite 49 to 1
  84.   set the visible of sprite 50 to 1
  85.   set the visible of sprite 51 to 1
  86.   set the visible of sprite 52 to 1
  87.   set the visible of sprite 53 to 1
  88.   set the visible of sprite 54 to 1
  89.   set the visible of sprite 55 to 1
  90.   set the visible of sprite 56 to 1
  91.   set the visible of sprite 57 to 1
  92.   set the visible of sprite 58 to 1
  93.   set the visible of sprite 59 to 1
  94.   set the visible of sprite 60 to 1
  95.   set the visible of sprite 61 to 1
  96.   set the visible of sprite 62 to 1
  97.   set the visible of sprite 63 to 1
  98.   set the visible of sprite 64 to 1
  99.   set the visible of sprite 65 to 1
  100.   set the visible of sprite 66 to 1
  101.   set the visible of sprite 67 to 1
  102.   set the visible of sprite 68 to 1
  103.   set the visible of sprite 69 to 1
  104.   set the visible of sprite 70 to 1
  105.   set the visible of sprite 71 to 1
  106.   set the visible of sprite 72 to 1
  107.   set the visible of sprite 73 to 1
  108.   set the visible of sprite 74 to 1
  109.   set the visible of sprite 75 to 1
  110.   set the hilite of cast "b_tg1" to 0
  111.   set the hilite of cast "b_tg2" to 0
  112.   set the hilite of cast "b_brk3" to 0
  113.   set the hilite of cast "b_fsi" to 0
  114.   set the hilite of cast "b_DC1" to 0
  115.   set the hilite of cast "b_SEAL" to 0
  116.   set the hilite of cast "b_BRK2" to 0
  117.   set the hilite of cast "b_BRK4" to 0
  118.   set the hilite of cast "b_BRK6" to 0
  119.   set the hilite of cast "b_BRK1" to 0
  120.   set the hilite of cast "b_BRK1b" to 0
  121.   set the hilite of cast "b_AX1" to 0
  122.   set the hilite of cast "b_AX2" to 0
  123.   set the hilite of cast "b_NT1" to 0
  124.   set the hilite of cast "b_lpbrake" to 0
  125.   set the hilite of cast "b_wb29" to 0
  126.   set the hilite of cast "b_wb19" to 0
  127.   set the hilite of cast "b_NT2" to 0
  128.   set the hilite of cast "b_grf1" to 0
  129.   set the hilite of cast "b_grf2" to 0
  130.   set the hilite of cast "b_grf3" to 0
  131.   set the hilite of cast "b_grw1" to 0
  132.   set the hilite of cast "b_grw2" to 0
  133.   set the hilite of cast "b_grw3" to 0
  134.   set the hilite of cast "b_brk1b" to 0
  135.   set the hilite of cast "b_mtg51" to 0
  136.   set the hilite of cast "b_mtg61" to 0
  137.   set the hilite of cast "b_mtg62" to 0
  138.   set the hilite of cast "b_mtg63" to 0
  139.   set the hilite of cast "b_mtg63" to 0
  140.   set the hilite of cast "b_HeatTreated" to 0
  141.   set the hilite of cast "b_wb2" to 0
  142.   set the hilite of cast "b_wb01" to 0
  143.   set the hilite of cast "b_wb01b" to 0
  144.   set the hilite of cast "b_wsr1" to 0
  145.   set the hilite of cast "b_wsr2" to 0
  146.   set the hilite of cast "b_wsr3" to 0
  147.   put field "f_modelfield" into field "modnum"
  148.   put field "modnum"
  149.   if (chars(field "modnum", 1, 2) = "69") or (chars(field "modnum", 1, 2) = "66") then
  150.     OTHERHAND()
  151.     abort()
  152.   end if
  153.   if chars(field "modnum", 1, 1) = "9" then
  154.     OTHERHAND()
  155.     abort()
  156.   end if
  157.   put mSetCriteria(gtblcaste, "CA_MOD", "=", field "modnum")
  158.   put mSelect(gtblcaste)
  159.   set ctester to mSelectCount(gtblcaste)
  160.   put mSetCriteria(gtblWheel, "WH_MOD", "=", field "Tblcaste,WH_MOD")
  161.   put mSelect(gtblWheel)
  162.   put mSelectCount(gtblWheel)
  163.   put mSetCriteria(gTblca_fe, "DESCCA", "=", field "Tblcaste,DESCRIP")
  164.   put mSelect(gTblca_fe)
  165.   if ctester < 1 then
  166.     play frame "wrong"
  167.     abort()
  168.   end if
  169.   put field "Tblcaste,CASTER_PIC" into field "maincasterphoto"
  170.   put field "Tblcaste,DIM_PIC" into field "maincastdimphoto"
  171.   put field "Tblcaste,STEM" into field "mainmounting"
  172.   put field "Tblcaste,DESCRIP" into field "casterdeshead"
  173.   put chars(field "modnum", 1, 2)
  174.   if chars(field "modnum", 1, 2) = "32" then
  175.     play frame "speca"
  176.     abort()
  177.   end if
  178.   if char 1 of field "Tblcaste,CA_MOD" = "1" then
  179.     if field "Tblcaste,STEM" contains "Expanding" then
  180.       play frame "1exadmt"
  181.       abort()
  182.     end if
  183.     if field "Tblcaste,STEM" contains "Square" then
  184.       play frame "1square"
  185.       abort()
  186.     end if
  187.     if field "Tblcaste,STEM" contains "Thread" then
  188.       set temp to field "Tblcaste,CAPACITY"
  189.       if temp < 100 then
  190.         play frame "1thread"
  191.         abort()
  192.       end if
  193.     end if
  194.     if field "Tblcaste,STEM" contains "Grip" then
  195.       set temp to field "Tblcaste,CAPACITY"
  196.       if temp < 100 then
  197.         play frame "1grip75"
  198.         abort()
  199.       else
  200.         play frame "1grip145"
  201.         abort()
  202.       end if
  203.     end if
  204.     if field "tblwheel,TG_OP" contains "TG2" then
  205.       if field "tblcaste,DIAMETER" = "5" then
  206.         if field "tblcaste,WHEELDES" contains "Performa" then
  207.           play frame "1optiond"
  208.           abort()
  209.         end if
  210.       else
  211.         play frame "1optionb"
  212.         abort()
  213.       end if
  214.     end if
  215.     if field "tblwheel,TG_OP" contains "TG1" then
  216.       play frame "1optionc"
  217.       abort()
  218.     end if
  219.     if field "tblcaste,BRK_OP" contains "BRK3" then
  220.       play frame "1optione"
  221.       abort()
  222.     end if
  223.     play frame "1optiona"
  224.     abort()
  225.   end if
  226.   if char 1 of field "Tblcaste,CA_MOD" contains "2" then
  227.     if (field "mtmodnum" contains "02") or (field "mtmodnum" contains "04") then
  228.       play frame "specb"
  229.       abort()
  230.     end if
  231.   end if
  232.   if char 1 of field "Tblcaste,CA_MOD" contains "2" then
  233.     if field "Tblcaste,DESCRIP" contains "Stainless" then
  234.       if field "tblwheel,TG_OP" contains "TG2" then
  235.         play frame "2soptiona"
  236.         abort()
  237.       else
  238.         play frame "2soptionb"
  239.         abort()
  240.       end if
  241.     end if
  242.     if field "Tblcaste,DESCRIP" contains "LoPro Swivel" then
  243.       if field "tblcaste,DIAMETER" = 3 then
  244.         if field "tblcaste,BRK_OP" contains "brake" then
  245.           play frame "2soptionc"
  246.           abort()
  247.         else
  248.           play frame "speca"
  249.           abort()
  250.         end if
  251.       else
  252.         play frame "speca"
  253.         abort()
  254.       end if
  255.     end if
  256.     if field "Tblcaste,DESCRIP" contains "LoPro Rigid" then
  257.       play frame "speca"
  258.       abort()
  259.     end if
  260.     if field "Tblcaste,STEM" contains "Expanding" then
  261.       play frame "2exadmt"
  262.       abort()
  263.     end if
  264.     if field "Tblcaste,STEM" contains "Grip" then
  265.       play frame "2gripmt"
  266.       abort()
  267.     end if
  268.     if field "Tblcaste,STEM" contains "Straight" then
  269.       play frame "2threadmt"
  270.       abort()
  271.     end if
  272.     if field "Tblcaste,STEM" contains "Square" then
  273.       play frame "2sqrmt"
  274.       abort()
  275.     end if
  276.     if field "Tblcaste,STEM" contains "Plate" then
  277.       if field "Tblcaste,STEM" contains "Swivel" then
  278.         play frame "2swimt"
  279.         abort()
  280.       end if
  281.     end if
  282.     if field "tblcaste,BRK_OP" contains "BRK6" then
  283.       if (field "tblwheel,TG_OP" contains "TG1") and (field "tblwheel,TG_OP" contains "TG2") then
  284.         play frame "2optiona"
  285.         abort()
  286.       end if
  287.       if field "tblwheel,TG_OP" contains "TG1" then
  288.         play frame "2optionb"
  289.         abort()
  290.       end if
  291.       if field "tblwheel,TG_OP" contains "TG2" then
  292.         play frame "2optionc"
  293.         abort()
  294.       end if
  295.       play frame "2optiond"
  296.       abort()
  297.     end if
  298.     if field "tblcaste,BRK_OP" contains "BRK4" then
  299.       if (field "tblwheel,TG_OP" contains "TG1") and (field "tblwheel,TG_OP" contains "TG2") then
  300.         play frame "2optione"
  301.         abort()
  302.       end if
  303.       if field "tblwheel,TG_OP" contains "TG1" then
  304.         play frame "2optionf"
  305.         abort()
  306.       end if
  307.       if field "tblwheel,TG_OP" contains "TG2" then
  308.         play frame "2optiong"
  309.         abort()
  310.       end if
  311.       play frame "2optionh"
  312.       abort()
  313.     end if
  314.     if field "tblcaste,BRK_OP" contains "BRK2" then
  315.       if (field "tblwheel,TG_OP" contains "TG1") and (field "tblwheel,TG_OP" contains "TG2") then
  316.         play frame "2optioni"
  317.         abort()
  318.       end if
  319.       if field "tblwheel,TG_OP" contains "TG1" then
  320.         play frame "2optionj"
  321.         abort()
  322.       end if
  323.       if field "tblwheel,TG_OP" contains "TG2" then
  324.         play frame "2optionk"
  325.         abort()
  326.       end if
  327.       play frame "2optionl"
  328.       abort()
  329.     end if
  330.     if field "tblcaste,BRK_OP" contains "BRK1" then
  331.       if (field "tblwheel,TG_OP" contains "TG1") and (field "tblwheel,TG_OP" contains "TG2") then
  332.         play frame "2optionm"
  333.         abort()
  334.       end if
  335.       if field "tblwheel,TG_OP" contains "TG1" then
  336.         play frame "2optionn"
  337.         abort()
  338.       end if
  339.       if field "tblwheel,TG_OP" contains "TG2" then
  340.         play frame "2optiono"
  341.         abort()
  342.       end if
  343.       play frame "2optionp"
  344.       abort()
  345.     end if
  346.     if field "tblcaste,OTHER_OP" contains "DC1" then
  347.       if (field "tblwheel,TG_OP" contains "TG1") and (field "tblwheel,TG_OP" contains "TG2") then
  348.         play frame "2optionq"
  349.         abort()
  350.       end if
  351.       if field "tblwheel,TG_OP" contains "TG1" then
  352.         play frame "2optionr"
  353.         abort()
  354.       end if
  355.       if field "tblwheel,TG_OP" contains "TG2" then
  356.         play frame "2options"
  357.         abort()
  358.       end if
  359.       play frame "2optiont"
  360.       abort()
  361.     end if
  362.     if not (field "tblcaste,OTHER_OP" = "DC1") then
  363.       if (field "tblwheel,TG_OP" contains "TG1") and (field "tblwheel,TG_OP" contains "TG2") then
  364.         play frame "2optionu"
  365.         abort()
  366.       end if
  367.       if field "tblwheel,TG_OP" contains "TG1" then
  368.         play frame "2optionv"
  369.         abort()
  370.       end if
  371.       if field "tblwheel,TG_OP" contains "TG2" then
  372.         play frame "2optionw"
  373.         abort()
  374.       end if
  375.       play frame "2optionx"
  376.       abort()
  377.     end if
  378.   end if
  379.   if char 1 of field "Tblcaste,CA_MOD" = "3" then
  380.     if (field "mtmodnum" contains "07") or (field "mtmodnum" contains "09") then
  381.       play frame "cargocop"
  382.       abort()
  383.     end if
  384.   end if
  385.   if char 1 of field "Tblcaste,CA_MOD" = 3 then
  386.     if field "tblcaste,MT_OP" contains "MTG7" then
  387.       play frame "3stem"
  388.       abort()
  389.     end if
  390.     if field "tblcaste,BRK_OP" contains "BRK1" then
  391.       if field "tblwheel,TG_OP" contains "TG1" then
  392.         play frame "3optiona"
  393.         abort()
  394.       else
  395.         play frame "3optionb"
  396.         abort()
  397.       end if
  398.     end if
  399.     if field "tblwheel,TG_OP" contains "TG1" then
  400.       play frame "3optionc"
  401.       abort()
  402.     else
  403.       play frame "3optiond"
  404.       abort()
  405.     end if
  406.   end if
  407.   if char 1 of field "Tblcaste,CA_MOD" = "4" then
  408.     if field "casterdeshead" contains "pneumatic" then
  409.       play frame "speca"
  410.       abort()
  411.     end if
  412.     if field "casterdeshead" contains "1-1/2" then
  413.       play frame "4amt"
  414.       abort()
  415.     end if
  416.     if field "casterdeshead" contains "2" then
  417.       play frame "4bmt"
  418.       abort()
  419.     end if
  420.     if field "casterdeshead" contains "IMPAK" then
  421.       play frame "4bmt"
  422.       abort()
  423.     end if
  424.   end if
  425.   if (char 1 of field "Tblcaste,CA_MOD" = "5") or (char 1 of field "Tblcaste,CA_MOD" = "6") then
  426.     if field "tblcaste,BRK_OP" contains "BRK1" then
  427.       if field "tblwheel,TG_OP" contains "TG1" then
  428.         if field "tblwheel,TG_OP" contains "TG2" then
  429.           play frame "5optiona"
  430.           abort()
  431.         else
  432.           play frame "5optionb"
  433.           abort()
  434.         end if
  435.       end if
  436.       if field "tblwheel,TG_OP" contains "TG2" then
  437.         play frame "5optionc"
  438.         abort()
  439.       else
  440.         play frame "5optiond"
  441.         abort()
  442.       end if
  443.     end if
  444.     if field "tblcaste,OTHER_OP" contains "MTG51" then
  445.       if field "tblwheel,TG_OP" contains "TG1" then
  446.         if field "tblwheel,TG_OP" contains "TG2" then
  447.           play frame "5optione"
  448.           abort()
  449.         else
  450.           play frame "5optionf"
  451.           abort()
  452.         end if
  453.         if field "tblwheel,TG_OP" contains "TG2" then
  454.           play frame "5optiong"
  455.           abort()
  456.         else
  457.           play frame "5optionh"
  458.           abort()
  459.         end if
  460.       end if
  461.     end if
  462.     if field "tblwheel,TG_OP" contains "TG1" then
  463.       if field "tblwheel,TG_OP" contains "TG2" then
  464.         play frame "5optioni"
  465.         abort()
  466.       else
  467.         play frame "5optionj"
  468.         abort()
  469.       end if
  470.       if field "tblwheel,TG_OP" contains "TG2" then
  471.         play frame "5optionl"
  472.         abort()
  473.       else
  474.         play frame "5optionl"
  475.         abort()
  476.       end if
  477.     end if
  478.     play frame "5optionl"
  479.     abort()
  480.   end if
  481.   if char 1 of field "Tblcaste,CA_MOD" = 7 then
  482.     if chars(field "Tblcaste,CA_MOD", 6, 6) contains "7" then
  483.       play frame "7impakmt"
  484.       abort()
  485.     end if
  486.     if field "Tblcaste,OTHER_OP" contains "MTG51" then
  487.       play frame "7boptiona"
  488.       abort()
  489.     end if
  490.     if chars(field "Tblcaste,CA_MOD", 7, 7) contains "9" then
  491.       play frame "7aoptiona"
  492.       abort()
  493.     else
  494.       play frame "7aoptionb"
  495.     end if
  496.   end if
  497.   if char 1 of field "Tblcaste,CA_MOD" = 8 then
  498.     play frame "7impakmt"
  499.     abort()
  500.   end if
  501. end
  502.  
  503. on WHEELOPHANDENT
  504.   global gtblWheel, glinevar
  505.   set the hilite of cast "b_tg1" to 0
  506.   set the hilite of cast "b_tg2" to 0
  507.   set the hilite of cast "b_wb01" to 0
  508.   set the hilite of cast "b_wb01b" to 0
  509.   set the hilite of cast "b_wb625" to 0
  510.   set the hilite of cast "b_wb750" to 0
  511.   set the hilite of cast "b_wb11" to 0
  512.   set the hilite of cast "b_wb11b" to 0
  513.   set the hilite of cast "b_wsr3" to 0
  514.   set the hilite of cast "b_wb09" to 0
  515.   set the hilite of cast "b_wb09b" to 0
  516.   put field "f_modelfield" into field "modnum"
  517.   put field "modnum" into field "wheelmodnum"
  518.   put mSetCriteria(gtblWheel, "WH_MOD", "=", field "wheelmodnum")
  519.   put mSelect(gtblWheel)
  520.   put mSelectCount(gtblWheel)
  521.   if mSelectCount(gtblWheel) < 1 then
  522.     play frame "wrong"
  523.     abort()
  524.   end if
  525.   put field "tblwheel,DESC" into field "casterdeshead"
  526.   put field "tblwheel,W_PHOTO" into field "maincasterphoto"
  527.   if field "tblwheel,BEAR_OP" contains "WB625" then
  528.     play frame "woptione"
  529.     abort()
  530.   end if
  531.   if field "tblwheel,BEAR_OP" contains "WB11" then
  532.     if field "tblwheel,TG_OP" contains "TG1" then
  533.       if field "tblwheel,TG_OP" contains "TG2" then
  534.         play frame "woptionf"
  535.         abort()
  536.       else
  537.         play frame "woptiong"
  538.         abort()
  539.       end if
  540.     end if
  541.     if field "tblwheel,TG_OP" contains "TG2" then
  542.       play frame "woptionh"
  543.       abort()
  544.     else
  545.       play frame "woptioni"
  546.       abort()
  547.     end if
  548.   end if
  549.   if (field "tblwheel,WASHER_OP" contains "WSR3") and (char 1 of field "wheelmodnum" = "7") then
  550.     if field "tblwheel,BEAR_OP" contains "WB09" then
  551.       if field "tblwheel,TG_OP" contains "TG1" then
  552.         if field "tblwheel,TG_OP" contains "TG2" then
  553.           play frame "woptionj"
  554.           abort()
  555.         else
  556.           play frame "woptionk"
  557.           abort()
  558.         end if
  559.       end if
  560.       if field "tblwheel,TG_OP" contains "TG2" then
  561.         play frame "woptionl"
  562.         abort()
  563.       else
  564.         play frame "woptionm"
  565.         abort()
  566.       end if
  567.     end if
  568.   end if
  569.   if field "tblwheel,BEAR_OP" contains "WB09" then
  570.     if field "tblwheel,TG_OP" contains "TG1" then
  571.       if field "tblwheel,TG_OP" contains "TG2" then
  572.         play frame "woptionn"
  573.         abort()
  574.       else
  575.         play frame "woptiono"
  576.         abort()
  577.       end if
  578.     end if
  579.     if field "tblwheel,TG_OP" contains "TG2" then
  580.       play frame "woptionp"
  581.       abort()
  582.     else
  583.       play frame "woptionq"
  584.       abort()
  585.     end if
  586.   end if
  587.   if field "tblwheel,BEAR_OP" contains "WB01" then
  588.     if field "tblwheel,TG_OP" contains "TG1" then
  589.       if field "tblwheel,TG_OP" contains "TG2" then
  590.         play frame "woptiona"
  591.         abort()
  592.       else
  593.         play frame "woptionb"
  594.         abort()
  595.       end if
  596.     end if
  597.     if field "tblwheel,TG_OP" contains "TG2" then
  598.       play frame "woptionc"
  599.       abort()
  600.     else
  601.       play frame "woptiond"
  602.       abort()
  603.     end if
  604.   end if
  605.   play frame "specwheel"
  606.   abort()
  607. end
  608.